home *** CD-ROM | disk | FTP | other *** search
/ The Utilities Experience / The Utilities Experience - Volume 1.iso / software / demos / r-z / sbase4pro / ideas / ideas93.sbp < prev    next >
Text File  |  1995-07-10  |  1KB  |  77 lines
  1. SBP
  2.  ÿ½ ideas93 create a word list and count for any text document
  3.  ÿÊÿfÿe
  4.  ÿ¡ÿJ("TempFile.SBF")ÿp
  5. ÿ´ÿ™"TempFile"
  6. ÿ¾ÿ™"TempFile"
  7.  ÿ’ÿ¡
  8.  ÿ‰"TempFile"
  9.  ÿ|"Word;TXT IXD;40;1,1"
  10.  ÿ|"Instances;NMI;9999.;2,1"
  11.  ÿª"TempFile"
  12.  req$ÿ"*.SBT"
  13.  ÿÂ"Please select a text file for input","",13,req%,req$
  14.  ÿ¡req%ÿ0ÿreq$ÿ""ÿpÿ’
  15.  ÿ‡
  16.  ÿ´req$ÿ›ÿ¤
  17.  ÿØÿOÿB("*")
  18. ÿ¤ÿcx$
  19. x$ÿÿH(x$)
  20. ÿ¡x$ÿ""ÿwendline
  21. ÿ{x$
  22. front%%ÿ1:back%%ÿ1
  23. ÿ™"TempFile"
  24. ÿØback%%ÿ0
  25. back%%ÿÿ?(front%%,x$," ")
  26. ÿ¡back%%ÿfront%%ÿp
  27. word$ÿÿ>(ÿ+(ÿåalpha(ÿ,(x$,front%%,(back%%ÿfront%%))),40))
  28. ÿØÿ/(word$)ÿ0
  29. ÿ¡ÿD(word$,Word.TempFile)ÿp
  30. Instances ÿInstances ÿ1
  31. ÿÌ,1
  32. ÿ^
  33. ÿ
  34. Word ÿWord$
  35. Instances ÿ1
  36. ÿÌ,1
  37. uniq%%ÿuniq%%ÿ1
  38. ÿ’ÿ¡
  39. words%%ÿwords%%ÿ1:word$ÿ""
  40. ÿÙ
  41. front%%ÿback%%ÿ1
  42. ÿ’ÿ¡
  43. ÿ¡back%%ÿfront%%ÿpfront%%ÿfront%%ÿ1
  44. ÿÙ
  45.  
  46. endline: 
  47.  ÿÙ
  48.  ÿ†ÿ¤
  49.  ÿ¬ÿ…
  50.  ÿ¬1,0,1,"Alphabetic"
  51.  ÿ¬2,0,1,"listing"
  52.  ÿ¬3,0,1,"of"
  53.  ÿ¬4,0,1,"all"
  54.  ÿ¬5,0,1,"words"
  55.  ÿ¬6,0,1,"used"
  56.  ÿ¬7,0,1,"in"
  57.  ÿ¬8,0,1,"file:"
  58.  ÿ¬9,0,1,ÿåroot(req$)
  59.  ÿ¬ÿ³a%,b%
  60.  ÿÁÿm"WordLen%"
  61.  ÿ}ÿÁ"WordLen%"
  62. wl%ÿÿd("WordLen%")
  63.  ÿ’ÿÁ
  64.  ÿÉÿ/(Word)ÿU"WordLen%"
  65.  
  66.  ÿÊÿfÿ³
  67.  ÿÉÿ`:ÿÊÿn
  68.  ÿ›x%ÿ1ÿquniq%%ÿ1
  69. ÿÉÿ±:ÿÎ
  70.  ÿ±x%
  71.  ÿ{"Number of words         = ";ÿ(words%%,"999999")
  72.  ÿ{"Number of unique words  = ";ÿ(uniq%%,"999999")
  73.  ÿ{"Average length of words = ";ÿ(wl%,"999.00");" characters."
  74.  ÿ{
  75.  
  76.  
  77.